home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGASIC
/
BASFILES.LZH
/
TEXTLINE.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-09-10
|
398b
|
22 lines
'$INCLUDE:'QBTOOLS.INC'
'' '$INCLUDE: 'qbtools2.inc'
FUNCTION TextLine$ (Row%)
REDIM Array%(160)
Empty$ = STRING$(80, 32)
IF Row% < 1 OR Row% > 25 THEN
TextLine$ = Empty$
END IF
GetScreen Array%(1), Row%, 1, Row%, 80
FOR j% = 1 TO 80
CALL SpltByte(Array%(j%), Upper%, Lower%)
MID$(Empty$, j%, 1) = CHR$(Lower%)
NEXT j%
TextLine$ = Empty$
END FUNCTION